home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / ansi.swg / 0016_Detect ANSI.SYS Present.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  304 b   |  19 lines
  1. {
  2. STEVE CONNET
  3.  
  4. determine whether ansi.sys is installed
  5. }
  6.  
  7. Function LocalAnsiDetected : Boolean;
  8. Var
  9.   Dummy : Byte;
  10. begin
  11.   Asm
  12.     mov ah,1ah                { detect ANSI.SYS device driver }
  13.     mov al,00h
  14.     int 2fh
  15.     mov dummy,al
  16.   end;
  17.   LocalAnsiDetected := Dummy = $FF;
  18. end;
  19.